home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Present…nuary (Partner) - Disc 2 / The Apple Reference and Presentations Library (Disc 2)(January 1994).iso / Synergy Software / US English / KaleidaGraph™-PPC / Examples folder / Macro Source / Integrate < prev    next >
Encoding:
Text File  |  1993-04-14  |  2.5 KB  |  427 lines  |  [TEXT/QKPT]
  1. alpha     "Integrate:"
  2. ibase
  3. STOa 9
  4. ;
  5. FIX 0
  6. ;
  7. alpha     "X Column"
  8. STOa 0
  9. 0e+00
  10. STO 00
  11. ;
  12. alpha     "Y Column"
  13. STOa 1
  14. 1
  15. STO 01
  16. ;
  17. RCLa 9
  18. inpt 2
  19. ;
  20. RCL 00
  21. int
  22. STO 05
  23. ;
  24. RCL 01
  25. int
  26. STO 06
  27. ;
  28. FIX 6
  29. ;
  30. LBL 02
  31. alpha     "Xmin"
  32. STOa 0
  33. XEQ 10
  34. STO 00
  35. ;
  36. alpha     "Xmax"
  37. STOa 1
  38. RCL 13
  39. STO 01
  40. ;
  41. alpha     "Yref"
  42. STOa 2
  43. 0e+00
  44. STO 02
  45. ;
  46. RCLa 9
  47. inpt 3
  48. ;
  49. RCL 02
  50. STO 04
  51. ;
  52. RCL 01
  53. STO 03
  54. ;
  55. RCL 00
  56. STO 02
  57. ;
  58. RCL 02
  59. RCL 12
  60. x > y
  61. STO 02
  62. ;
  63. RCL 13
  64. RCL 03
  65. x <= y
  66. GTO 04
  67. RCL 13
  68. STO 03
  69. GTO 04
  70. ;
  71. LBL 05
  72. RCL 02
  73. STO 00
  74. RCL 03
  75. STO 01
  76. alpha     "Xmin: "
  77. STOa 0
  78. alpha     "Xmax: "
  79. STOa 1
  80. alpha     "Xmin must be smaller than Xmax!"
  81. view 2
  82. GTO 02
  83. ;
  84. LBL 04
  85. RCL 03
  86. RCL 02
  87. x >= y
  88. GTO 05
  89. ;
  90. XEQ 80
  91. ;
  92. STO 00
  93. alpha     "Area Under Curve = "
  94. STOa 0
  95. RCLa 9
  96. view 1
  97. ;
  98. STOP
  99. ;
  100. LBL 10
  101. RCL 05
  102. 1000
  103.  /
  104. STO 10
  105. size
  106. 1
  107.  -
  108. RCL 10
  109.  +
  110. STO 11
  111. ;
  112. RCL 10
  113. int
  114. RCL 06
  115. 1000
  116.  /
  117.  +
  118. STO 40
  119. ;
  120. RCL 11
  121. int
  122. RCL 06
  123. 1000
  124.  /
  125.  +
  126. STO 41
  127. ;
  128. LBL 90
  129. RCLi 41
  130. test 1
  131. GTO 91
  132. test 2
  133. GTO 91
  134. RCLi 11
  135. test 1
  136. GTO 91
  137. test 2
  138. GTO 91
  139. STO 13
  140. ;
  141. LBL 92
  142. RCLi 40
  143. test 1
  144. GTO 93
  145. test 2
  146. GTO 93
  147. RCLi 10
  148. test 1
  149. GTO 93
  150. test 2
  151. GTO 93
  152. STO 12
  153. ;
  154. RTN
  155. ;
  156. LBL 91
  157. RCL 41
  158. 1
  159.  -
  160. STO 41
  161. RCL 11
  162. 1
  163.  -
  164. STO 11
  165. GTO 90
  166. ;
  167. LBL 93
  168. RCL 40
  169. 1
  170.  +
  171. STO 40
  172. RCL 10
  173. 1
  174.  +
  175. STO 10
  176. GTO 92
  177. ;
  178. LBL 95
  179. RCL 10
  180. 1
  181.  +
  182. STO 10
  183. GTO 94
  184. ;
  185. LBL 97
  186. RCL 11
  187. 1
  188.  -
  189. STO 11
  190. GTO 96
  191. ;
  192. LBL 70
  193. RCL 20
  194. 1
  195.  -
  196. STO 19
  197. RCL 40
  198. 1
  199.  -
  200. STO 39
  201. RCLi 40
  202. RCLi 39
  203.  -
  204. RCL 02
  205. RCLi 19
  206.  -
  207. RCLi 20
  208. RCLi 19
  209.  -
  210.  /
  211.  *
  212. RCLi 39
  213.  +
  214. RCLi 40
  215.  +
  216. 2
  217.  /
  218. RCL 04
  219.  -
  220. RCLi 20
  221. RCL 02
  222.  -
  223.  *
  224. ADD 00
  225. RTN
  226. ;
  227. LBL 71
  228. RCL 20
  229. 1
  230.  +
  231. STO 19
  232. RCL 40
  233. 1
  234.  +
  235. STO 39
  236. RCLi 39
  237. RCLi 40
  238.  -
  239. RCL 03
  240. RCLi 20
  241.  -
  242. RCLi 19
  243. RCLi 20
  244.  -
  245.  /
  246.  *
  247. RCLi 40
  248.  +
  249. RCLi 40
  250.  +
  251. 2
  252.  /
  253. RCL 04
  254.  -
  255. RCL 03
  256. RCLi 20
  257.  -
  258.  *
  259. ADD 00
  260. RTN
  261. ;
  262. LBL 80
  263. ;
  264. LBL 94
  265. RCLi 10
  266. test 1
  267. GTO 95
  268. RCL 02
  269. x > y
  270. GTO 95
  271. ;
  272. LBL 96
  273. RCLi 11
  274. test 1
  275. GTO 97
  276. RCL 03
  277. x < y
  278. GTO 97
  279. ;
  280. RCL 11
  281. RCL 10
  282.  -
  283. 1e-05
  284.  +
  285. int
  286. STO 01
  287. ;
  288. 0e+00
  289. STO 00
  290. ;
  291. RCL 10
  292. STO 20
  293. int
  294. RCL 06
  295. 1000
  296.  /
  297.  +
  298. STO 40
  299. ;
  300. RCL 20
  301. 1
  302.  +
  303. STO 22
  304. ;
  305. RCL 40
  306. 1
  307.  +
  308. STO 42
  309. ;
  310. 0e+00
  311. RCL 01
  312. x <= y
  313. GTO 81
  314. ;
  315. RCLi 20
  316. RCL 02
  317. x < y
  318. XEQ 70
  319. ;
  320. LBL 98
  321. RCLi 22
  322. RCLi 20
  323.  -
  324. RCLi 42
  325. test 1
  326. GTO 60
  327. test 2
  328. GTO 60
  329. RCLi 40
  330.  +
  331. 2
  332.  /
  333. RCL 04
  334.  -
  335.  *
  336. ADD 00
  337. ;
  338. 1
  339. ADD 22
  340. ADD 42
  341. RCL 22
  342. 1
  343.  -
  344. STO 20
  345. RCL 42
  346. 1
  347.  -
  348. STO 40
  349. GTO 62
  350. ;
  351. LBL 60
  352. 1
  353. ADD 42
  354. ADD 22
  355. ;
  356. LBL 62
  357. 0e+00
  358. DSE 01
  359. GTO 98
  360. ;
  361. RCLi 20
  362. RCL 03
  363. x > y
  364. XEQ 71
  365. ;
  366. RCL 00
  367. RTN
  368. ;
  369. LBL 81
  370. RCLi 20
  371. RCL 03
  372. x <= y
  373. GTO 82
  374. RCL 20
  375. RCL 02
  376. x < y
  377. XEQ 70
  378. RCLi 20
  379. RCL 03
  380. x > y
  381. XEQ 71
  382. RTN
  383. ;
  384. LBL 82
  385. RCLi 22
  386. RCLi 20
  387.  -
  388. STO 19
  389. RCLi 42
  390. RCLi 40
  391.  -
  392. STO 39
  393. RCL 02
  394. RCLi 20
  395.  -
  396. RCL 19
  397.  /
  398. RCL 39
  399.  *
  400. RCLi 40
  401.  +
  402. RCL 03
  403. RCLi 20
  404.  -
  405. RCL 19
  406.  /
  407. RCL 39
  408.  *
  409. RCLi 40
  410.  +
  411.  +
  412. 2
  413.  /
  414. RCL 04
  415.  -
  416. RCL 03
  417. RCL 02
  418.  -
  419.  *
  420. STO 00
  421. RTN
  422. ;
  423. alpha     "Version 1.3 - 5/11/89"
  424. alpha     "by Lonnie R. Abelbeck"
  425. alpha     "Modified - 4.14.93"
  426. alpha     "by W. T. Jones"
  427.